home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n18.arc / CHANGEJ.BAT < prev    next >
DOS Batch File  |  1991-10-30  |  724b  |  62 lines
  1. [[CHANGEJ.BAT]]
  2.  
  3. @echo off
  4. REM Calling is done via:
  5. REM CALL CHANGEJ 0 U  (increase)
  6. REM CALL CHANGEJ 9 U  (decrease)
  7. REM Variables H, T, U must be
  8. REM initialized to single digits.
  9. set X=%2
  10. if %X%==U set O=%U%
  11. if %X%==T set O=%T%
  12. if %X%==H set O=%H%
  13. set S=P
  14. if %1==9 set S=M
  15. goto %S%%O%
  16. :P0
  17. :M2
  18. set V=1
  19. goto Y
  20. :P1
  21. :M3
  22. set V=2
  23. goto Y
  24. :P2
  25. :M4
  26. set V=3
  27. goto Y
  28. :P3
  29. :M5
  30. set V=4
  31. goto Y
  32. :P4
  33. :M6
  34. set V=5
  35. goto Y
  36. :P5
  37. :M7
  38. set V=6
  39. goto Y
  40. :P6
  41. :M8
  42. set V=7
  43. goto Y
  44. :P7
  45. :M9
  46. set V=8
  47. goto Y
  48. :P8
  49. :M0
  50. set V=9
  51. goto Y
  52. :P9
  53. :M1
  54. set V=0
  55. :Y
  56. set %X%=%V%
  57. if "%X%"=="U" if %U%==%1 CALL changej %1 T
  58. if "%X%"=="T" if %T%==%1 CALL changej %1 H
  59. set J=%H%%T%%U%
  60. for %%v in (N O S X) DO set %%v=
  61.  
  62.